home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 3.st / CINIT.ARC / MWINIT.S < prev    next >
Encoding:
Text File  |  1989-07-12  |  1.5 KB  |  76 lines
  1. /
  2. / dual purpose startup for accessory/programs under mwc 2.0
  3. / by Samuel Streeper
  4. / Copyright 1989 Antic Publishing
  5.  
  6.     .bssd
  7.     .globl    _stkbot_
  8. _stktop_:    .blkb    2
  9.         .blkb    1024*5
  10. _stkbot_:    .blkb    2
  11.  
  12.     .shrd
  13.     .globl    _app_
  14. _app_:        .word 0
  15.  
  16.     .prvd
  17.     .globl    errno_
  18.     .globl    environ_
  19.     .globl    _stksize_
  20.     .globl    _start_
  21.  
  22. errno_:        .word 0
  23. environ_:    .long 0
  24.  
  25. /
  26. /    a5 = base page pointer
  27. /    _stksize_ = void
  28. /        overwritten at runtime to make a stack limit
  29. /    _start_ = program text base
  30. /
  31.  
  32.     .shri
  33. _start_:
  34.     lea        _start_,a5
  35.     suba.l    $256,a5        / Fetch base page pointer
  36.  
  37. / Allocate stack, a1 points beyond vectors
  38.     move.l    $_stktop_, _stksize_    / Save stack limit
  39.     lea    _stkbot_, a7        / Set stack
  40.  
  41. / Push arguments for main(argc, argv, envp)
  42.     move.l    a5, -(a7)        / basepage
  43.     clr.l    -(a7)            / envp[]
  44.     clr.l    -(a7)            / argv[]
  45.     clr    -(a7)            / argc
  46.  
  47. / Test to see if is accessory
  48.     moveq    $0,d5
  49.     tst.l    36(a5)            / Parent basepage ptr clear if ACC
  50.     sne    d5            /d5 set if application
  51.     move    d5,_app_
  52.     beq    cont            /is an accessory
  53.  
  54. / Release unused memory to the system pool.
  55.     move.l    12(a5),d0
  56.     add.l    20(a5),d0
  57.     add.l    28(a5),d0
  58.     addi.l    $256,d0            /size of basepage
  59.  
  60.     move.l    d0,-(a7)
  61.     move.l    a5, -(a7)        / Base of retained memory
  62.     clr    -(a7)            / Must be zero
  63.     move    $0x4A, -(a7)        / Mshrink opcode
  64.     trap    $1            / Gemdos
  65.     adda    $12, a7            / Pop arguments
  66.  
  67. cont:
  68. / Call main(argc, argv, envp)
  69.     suba    a6, a6            / Zero frame pointer
  70.     jsr    main_            / Call main line
  71.     adda    $10, a7            / Pop arguments
  72.  
  73. / Terminate
  74.     clr    -(a7)            / Pterm0
  75.     trap    $1
  76.